home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 2 / BBS in a box - Trilogy II.iso / Files / Hyper / G / Get⁄Set Folder / Get⁄SetNameLock 1.0 / Get_SetNameLock 1.0 / cards.xml < prev    next >
Encoding:
Text File  |  1992-02-11  |  5.6 KB  |  148 lines
  1. card_2252.xml
  2. <?xml version="1.0" encoding="utf-8" ?>
  3. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4. <card>
  5.     <id>2252</id>
  6.     <filler1>0</filler1>
  7.     <bitmap>BMAP_5085.pbm</bitmap>
  8.     <cantDelete> <false /> </cantDelete>
  9.     <showPict> <true /> </showPict>
  10.     <dontSearch> <false /> </dontSearch>
  11.     <owner>2310</owner>
  12.     <link rel="stylesheet" type="text/css" href="stylesheet_3217.css" />
  13.     <part>
  14.         <id>9</id>
  15.         <type>field</type>
  16.         <visible> <true /> </visible>
  17.         <dontWrap> <false /> </dontWrap>
  18.         <dontSearch> <false /> </dontSearch>
  19.         <sharedText> <false /> </sharedText>
  20.         <fixedLineHeight> <false /> </fixedLineHeight>
  21.         <autoTab> <false /> </autoTab>
  22.         <lockText> <true /> </lockText>
  23.         <rect>
  24.             <left>1</left>
  25.             <top>86</top>
  26.             <right>511</right>
  27.             <bottom>309</bottom>
  28.         </rect>
  29.         <style>scrolling</style>
  30.         <autoSelect> <false /> </autoSelect>
  31.         <showLines> <false /> </showLines>
  32.         <wideMargins> <false /> </wideMargins>
  33.         <multipleLines> <false /> </multipleLines>
  34.         <reservedFamily> 0 </reservedFamily>
  35.         <titleWidth>0</titleWidth>
  36.         <icon>0</icon>
  37.         <textAlign>left</textAlign>
  38.         <font>Monaco</font>
  39.         <textSize>9</textSize>
  40.         <textStyle>plain</textStyle>
  41.         <textHeight>12</textHeight>
  42.         <name></name>
  43.         <script></script>
  44.     </part>
  45.     <part>
  46.         <id>17</id>
  47.         <type>button</type>
  48.         <visible> <true /> </visible>
  49.         <reserved5> 0 </reserved5>
  50.         <reserved4> 0 </reserved4>
  51.         <reserved3> 0 </reserved3>
  52.         <reserved2> 0 </reserved2>
  53.         <reserved1> 0 </reserved1>
  54.         <enabled> <true /> </enabled>
  55.         <rect>
  56.             <left>4</left>
  57.             <top>54</top>
  58.             <right>104</right>
  59.             <bottom>76</bottom>
  60.         </rect>
  61.         <style>rectangle</style>
  62.         <showName> <true /> </showName>
  63.         <highlight> <false /> </highlight>
  64.         <autoHighlight> <true /> </autoHighlight>
  65.         <sharedHighlight> <true /> </sharedHighlight>
  66.         <family>0</family>
  67.         <titleWidth>0</titleWidth>
  68.         <icon>0</icon>
  69.         <textAlign>center</textAlign>
  70.         <font>Chicago</font>
  71.         <textSize>12</textSize>
  72.         <textStyle>plain</textStyle>
  73.         <name>GetNameLock</name>
  74.         <script>on mouseUp
  75. answer file "Choose a file to examine:"
  76. put it into appname
  77. if appname = "" then exit to hypercard
  78. get GetNameLock(appname)
  79. if the number of chars of it ‚⧠5 then
  80. answer "The NameLock flag of ‚Äú" & appname & "‚Äù is" && it & "."
  81. else
  82. answer it with "Sorry"
  83. end if
  84. end mouseUp
  85. </script>
  86.     </part>
  87.     <part>
  88.         <id>18</id>
  89.         <type>button</type>
  90.         <visible> <true /> </visible>
  91.         <reserved5> 0 </reserved5>
  92.         <reserved4> 0 </reserved4>
  93.         <reserved3> 0 </reserved3>
  94.         <reserved2> 0 </reserved2>
  95.         <reserved1> 0 </reserved1>
  96.         <enabled> <true /> </enabled>
  97.         <rect>
  98.             <left>108</left>
  99.             <top>54</top>
  100.             <right>208</right>
  101.             <bottom>76</bottom>
  102.         </rect>
  103.         <style>rectangle</style>
  104.         <showName> <true /> </showName>
  105.         <highlight> <false /> </highlight>
  106.         <autoHighlight> <true /> </autoHighlight>
  107.         <sharedHighlight> <true /> </sharedHighlight>
  108.         <family>0</family>
  109.         <titleWidth>0</titleWidth>
  110.         <icon>0</icon>
  111.         <textAlign>center</textAlign>
  112.         <font>Chicago</font>
  113.         <textSize>12</textSize>
  114.         <textStyle>plain</textStyle>
  115.         <name>SetNameLock</name>
  116.         <script>on mouseUp
  117. answer file "Choose a file to work with:"
  118. put it into appname
  119. if appname = "" then exit to hypercard
  120. if getNameLock(appname) then
  121. answer "Change NameLock flag to what?" with "True" or "False"
  122. else
  123. answer "Change NameLock flag to what?" with "False" or "True"
  124. end if
  125. setNameLock appname,it
  126. if the result ‚↠"" then answer the result with "Sorry"
  127. end mouseUp
  128. </script>
  129.     </part>
  130.     <part>
  131.         <id>19</id>
  132.         <type>button</type>
  133.         <visible> <true /> </visible>
  134.         <reserved5> 0 </reserved5>
  135.         <reserved4> 0 </reserved4>
  136.         <reserved3> 0 </reserved3>
  137.         <reserved2> 0 </reserved2>
  138.         <reserved1> 0 </reserved1>
  139.         <enabled> <true /> </enabled>
  140.         <rect>
  141.             <left>473</left>
  142.             <top>51</top>
  143.             <right>511</right>
  144.             <bottom>83</bottom>
  145.         </rect>
  146.         <style>transparent</style>
  147.         <showName> <false /> </showName>
  148.         <highlight> <false /> </highlight>
  149.         <autoHighlight> <true /> </autoHighlight>
  150.         <sharedHighlight> <true /> </sharedHighlight>
  151.         <family>0</family>
  152.         <titleWidth>0</titleWidth>
  153.         <icon>15664</icon>
  154.         <textAlign>center</textAlign>
  155.         <font>Chicago</font>
  156.         <textSize>12</textSize>
  157.         <textStyle>plain</textStyle>
  158.         <name>Home</name>
  159.         <script>on mouseUp
  160. visual dissolve to black
  161. visual dissolve to white
  162. visual dissolve to black
  163. visual dissolve
  164. go home
  165. end mouseUp
  166. </script>
  167.     </part>
  168.     <content>
  169.         <layer>card</layer>
  170.         <id>9</id>
  171.         <text>GetNameLock takes one parameter, the pathname of the file you want to examine. SetNameLock takes two parameters, the pathname of the file and TRUE or FALSE indicating your choice of setting. Click on and/or examine the scripts of the buttons above to see how it works!
  172.  
  173. The NameLock flag specifies that a file cannot be renamed from the Finder and that the file cannot have customized icons assigned to it by users.
  174.  
  175. A small shareware fee of $5 is requested if you use this external in any ‚Äúin-house‚Äù, shareware or freeware products. The registration fee for development and prototyping of a future commercial product is $10.  The registration fee for unlimited commercial use in a SINGLE ‚Äúfor sale‚Äù product is $15.  The fee for unlimited commercial use with MULTIPLE products is $25.   These are life-time registrations.  You are entitled to all future shareware updates without further cost.
  176.  
  177. If you have questions or comments I can be reached through the following:
  178.  
  179. Jeffrey Donald Iverson                        CompuServe:      76675,1772
  180. 3841 Whispering Way Drive SE #101             AppleLink:       ALL.AMERICAN
  181. Grand Rapids MI  49546                        America Online:  ProX Jeff
  182. (616) 949-0346                                GEnie:           APOSTASY
  183. </text>
  184.     </content>
  185.     <name></name>
  186.     <script></script>
  187. </card>
  188.  
  189.  
  190.